home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q2.bas < prev    next >
BASIC Source File  |  2012-02-16  |  8KB  |  321 lines
  1. 0  HOME 
  2. 100  HGR : HCOLOR= 3
  3. 110  HPLOT 120,65 TO 50,100 TO 50,40 TO 120,5 TO 190,40 TO 190,100 TO 120,65
  4. 112  HPLOT 121,66 TO 49,101 TO 49,39 TO 120,4 TO 191,39 TO 191,101 TO 121,66
  5. 120  HPLOT 120,6 TO 120,65
  6. 121  HPLOT 121,6 TO 121,65
  7. 140  REM      draw ap
  8. 145 X% = 111:Y% = 59
  9. 150  GOSUB 9800
  10. 160  REM       write ang
  11. 162 X% = 158:Y% = 17
  12. 164  GOSUB 10900
  13. 166 X% = 165
  14. 168  GOSUB 10450
  15. 170 X% = 171
  16. 172  GOSUB 10250
  17. 174 X% = 177
  18. 176  GOSUB 10400
  19. 178 X% = 180
  20. 180  GOSUB 10150
  21. 200  REM        =
  22. 202 X% = 190
  23. 204  GOSUB 11400
  24. 206  REM       90
  25. 208 X% = 200
  26. 210  GOSUB 11250
  27. 212 X% = 206
  28. 214  GOSUB 11300
  29. 216 X% = 212
  30. 218  GOSUB 11450
  31. 300  REM      answers
  32. 302  REM      a. eight
  33. 304 X% = 5:Y% = 130
  34. 306  GOSUB 10000
  35. 308  HPLOT 11,130
  36. 310 X% = 17
  37. 312  GOSUB 10150
  38. 314 X% = 23
  39. 316  GOSUB 10350
  40. 318 X% = 26
  41. 320  GOSUB 10250
  42. 322 X% = 32
  43. 324  GOSUB 10300
  44. 326 X% = 38
  45. 328  GOSUB 10650
  46. 342  REM        b. thirteen  20  
  47. 344 X% = 58
  48. 346  GOSUB 11200
  49. 348  HPLOT 64,130
  50. 350 X% = 70
  51. 352  GOSUB 10650
  52. 354 X% = 75
  53. 356  GOSUB 10300
  54. 358 X% = 81
  55. 360  GOSUB 10350
  56. 362 X% = 84
  57. 364  GOSUB 10600
  58. 366 X% = 90
  59. 368  GOSUB 10650
  60. 370 X% = 95
  61. 372  GOSUB 10150
  62. 374 X% = 101
  63. 376  GOSUB 10150
  64. 378 X% = 107
  65. 380  GOSUB 10450
  66. 382  REM      c. eleven
  67. 384 X% = 127
  68. 386  GOSUB 10050
  69. 388  HPLOT 133,130
  70. 390 X% = 139
  71. 392  GOSUB 10150
  72. 394 X% = 145
  73. 396  GOSUB 10400
  74. 398 X% = 148
  75. 400  GOSUB 10150
  76. 402 X% = 154
  77. 404  GOSUB 10750
  78. 406 X% = 160
  79. 408  GOSUB 10150
  80. 410 X% = 166
  81. 412  GOSUB 10450
  82. 420  REM       d. help  
  83. 422 X% = 186
  84. 424  GOSUB 10100
  85. 426  HPLOT 192,130
  86. 428 X% = 198
  87. 430  GOSUB 10300
  88. 432 X% = 204
  89. 434  GOSUB 10150
  90. 436 X% = 210
  91. 438  GOSUB 10400
  92. 440 X% = 213
  93. 442  GOSUB 10550
  94. 500  REM       ?
  95. 501  PRINT : PRINT 
  96. 502  VTAB (21): PRINT "Given the angle between these two       mirrors, how many images will you see?"
  97. 504  GET KY$: CALL 62450
  98. 506  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 2000
  99. 508  IF KY$ = "a"  OR KY$ = "A"  OR KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 2100
  100. 510  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 2200
  101. 512  PRINT 
  102. 514  PRINT "Please enter <a>, <b>, <c>, or <d>      only."
  103. 516  FOR I = 0 TO 1000
  104. 518 J = 1
  105. 520  NEXT I
  106. 522  GOTO 0
  107. 1000  END 
  108. 2000  HOME : TEXT 
  109. 2002  PRINT : PRINT 
  110. 2004  PRINT "GREAT!!  You've got it.  Let's move on."
  111. 2006  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  112. 2008  GOSUB 3008
  113. 2010  PRINT  CHR$(4);"run q3"
  114. 2100  REM       wrong answer
  115. 2102  HOME : TEXT 
  116. 2104  PRINT 
  117. 2106  PRINT "Sorry, WRONG choice.  Please wait a     moment to try again....."
  118. 2108  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  119. 2110  GOSUB 3008
  120. 2112  GOSUB 0
  121. 2200  HOME : TEXT 
  122. 2202  PRINT : PRINT 
  123. 2204  PRINT "In order to get the number of images,   divide 360 by the angle and subtract    one from the result.
  124. 2206  PRINT : PRINT 
  125. 2207  PRINT "   360  "
  126. 2208  PRINT " -------    -  1  =   number of images"
  127. 2209  PRINT "  angle "
  128. 2210  PRINT : PRINT : PRINT : PRINT : PRINT 
  129. 2220  GOSUB 3008
  130. 2230  PRINT "Press any key to try again."
  131. 2240  GET KY$
  132. 2250  GOTO 0
  133. 3008  FOR I = 0 TO 1100
  134. 3010 J = 1
  135. 3012  NEXT I
  136. 3014  RETURN 
  137. 9800  REM      draw ap
  138. 9802  HPLOT X% +3,Y% TO X% +4,Y%
  139. 9804  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  140. 9806  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  141. 9808  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  142. 9810  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  143. 9812  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  144. 9814  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  145. 9816  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  146. 9818  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  147. 9820  HPLOT X%,Y% +6 TO X% +17,Y% +6
  148. 9822  HPLOT X%,Y% +7 TO X% +17,Y% +7
  149. 9824  HPLOT X%,Y% +8 TO X% +17,Y% +8
  150. 9826  HPLOT X%,Y% +9 TO X% +17,Y% +9
  151. 9828  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  152. 9830  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  153. 9832  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  154. 9834  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  155. 9836  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  156. 9838  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  157. 9840  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  158. 9842  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  159. 9844  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  160. 9850  RETURN 
  161. 9999  REM     a
  162. 10000  HPLOT X%,Y% -1
  163. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  164. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  165. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  166. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  167. 10041  RETURN 
  168. 10049  REM     c
  169. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  170. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  171. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  172. 10071  RETURN 
  173. 10099  REM     d
  174. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  175. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  176. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  177. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  178. 10131  RETURN 
  179. 10149  REM     e
  180. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  181. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  182. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  183. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  184. 10190  HPLOT X% +3,Y% -3
  185. 10191  RETURN 
  186. 10199  REM     f
  187. 10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
  188. 10210  HPLOT X% +1,Y% TO X% +1,Y% -5
  189. 10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
  190. 10221  RETURN 
  191. 10249  REM     g
  192. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  193. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  194. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  195. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  196. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  197. 10291  RETURN 
  198. 10299  REM     h
  199. 10300  HPLOT X%,Y% TO X%,Y% -6
  200. 10310  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  201. 10320  HPLOT X% +3,Y% TO X% +3,Y% -3
  202. 10321  RETURN 
  203. 10349  REM     i
  204. 10350  HPLOT X%,Y% TO X%,Y% -3
  205. 10360  HPLOT X%,Y% -5
  206. 10361  RETURN 
  207. 10399  REM     l
  208. 10400  HPLOT X%,Y% TO X%,Y% -6
  209. 10401  RETURN 
  210. 10449  REM     n
  211. 10450  HPLOT X%,Y% TO X%,Y% -4
  212. 10460  HPLOT X% +1,Y% -3
  213. 10470  HPLOT X% +2,Y% -4
  214. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  215. 10481  RETURN 
  216. 10499  REM     o
  217. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  218. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  219. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  220. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  221. 10531  RETURN 
  222. 10549  REM     p
  223. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  224. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  225. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  226. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  227. 10581  RETURN 
  228. 10599  REM      r
  229. 10600  HPLOT X%,Y% TO X%,Y% -4
  230. 10610  HPLOT X% +1,Y% -3
  231. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  232. 10621  RETURN 
  233. 10649  REM      t
  234. 10650  HPLOT X%,Y% -4
  235. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  236. 10670  HPLOT X% +2,Y% -4
  237. 10671  RETURN 
  238. 10699  REM      u
  239. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  240. 10710  HPLOT X% +1,Y%
  241. 10720  HPLOT X% +2,Y% -1
  242. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  243. 10731  RETURN 
  244. 10750  HPLOT X%,Y% -2 TO X%,Y% -4
  245. 10760  HPLOT X% +1,Y% -1
  246. 10770  HPLOT X% +2,Y%
  247. 10780  HPLOT X% +3,Y% -1
  248. 10790  HPLOT X% +4,Y% -2 TO X% +4,Y% -4
  249. 10791  RETURN 
  250. 10899  REM       A
  251. 10900  HPLOT X%,Y% TO X%,Y% -4
  252. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  253. 10920  HPLOT X% +3,Y% -5
  254. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  255. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  256. 10941  RETURN 
  257. 10949  REM      I
  258. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  259. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  260. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  261. 10971  RETURN 
  262. 10999  REM       L
  263. 11000  HPLOT X%,Y% TO X%,Y% -6
  264. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  265. 11011  RETURN 
  266. 11049  REM       M
  267. 11050  HPLOT X%,Y% TO X%,Y% -6
  268. 11060  HPLOT X% +1,Y% -5
  269. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  270. 11080  HPLOT X% +3,Y% -5
  271. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  272. 11091  RETURN 
  273. 11099  REM       R
  274. 11100  HPLOT X%,Y% TO X%,Y% -6
  275. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  276. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  277. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  278. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  279. 11141  RETURN 
  280. 11149  REM       C
  281. 11150  HPLOT X%,Y% -1 TO X%,Y% -5
  282. 11160  HPLOT X% +1,Y% TO X% +3,Y%
  283. 11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  284. 11180  HPLOT X% +4,Y% -5
  285. 11190  HPLOT X% +4,Y% -1
  286. 11191  RETURN 
  287. 11199  REM      b
  288. 11200  HPLOT X%,Y% TO X%,Y% -6
  289. 11210  HPLOT X% +1,Y% TO X% +2,Y%
  290. 11230  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  291. 11240  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  292. 11241  RETURN 
  293. 11249  REM      3
  294. 11250  HPLOT X%,Y% TO X% +2,Y%
  295. 11260  HPLOT X%,Y% -6 TO X% +2,Y% -6
  296. 11270  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  297. 11280  HPLOT X% +3,Y% -1 TO X% +3,Y% -2
  298. 11290  HPLOT X% +3,Y% -4 TO X% +3,Y% -5
  299. 11291  RETURN 
  300. 11299  REM      0
  301. 11300  HPLOT X% +1,Y% TO X% +2,Y%
  302. 11310  HPLOT X%,Y% -1 TO X%,Y% -5
  303. 11320  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  304. 11330  HPLOT X% +3,Y% -1 TO X% +3,Y% -5
  305. 11331  RETURN 
  306. 11349  REM      9
  307. 11350  HPLOT X%,Y% -4 TO X%,Y% -5
  308. 11360  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  309. 11370  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  310. 11380  HPLOT X% +3,Y% TO X% +3,Y% -5
  311. 11381  RETURN 
  312. 11399  REM      =
  313. 11400  HPLOT X%,Y% -1 TO X% +3,Y% -1
  314. 11410  HPLOT X%,Y% -3 TO X% +3,Y% -3
  315. 11411  RETURN 
  316. 11449  REM      degree sign
  317. 11450  HPLOT X%,Y% -5
  318. 11460  HPLOT X% +1,Y% -4
  319. 11470  HPLOT X% +1,Y% -6
  320. 11480  HPLOT X% +2,Y% -5
  321. 11481  RETURN